home *** CD-ROM | disk | FTP | other *** search
/ Clinton - Portrait of Victory / PORTRAIT OF VICTORY.BIN / cltpc256 / eagle3.txt < prev    next >
Text File  |  1992-12-22  |  3KB  |  165 lines
  1. ; Campaign Main Menu
  2. menu31:
  3. pload ehcam 1
  4. putup 0 415 p1
  5. pfree 1
  6. pload camtit 1
  7. putup 88 53 p1
  8. pfree 1
  9. pload ebnav 1
  10. putup 0 0 p1
  11. pfree 1
  12. goto mn31
  13. menubk:
  14. pload ehcam 1
  15. putup 0 415 p1
  16. pfree 1
  17. pload camtit 1
  18. putup 88 53 p1
  19. pfree 1
  20. mn31:
  21. waitkey
  22. getkey k
  23. if @k==1
  24.   set tnum 0
  25.   xbkg2
  26.   link eagle31
  27. else
  28.   if @k==2
  29.     set tnum 0
  30.     xbkg2
  31.     link eagle32
  32.   else
  33.     if @k==3
  34.       set tnum 0
  35.       xbkg2
  36.       link eagle33
  37.     else
  38.       if @k==4
  39.         set tnum 0
  40.         xbkg2
  41.         link eagle34
  42.       else
  43.         if @k==5
  44.           set tnum 0
  45.           xbkg2
  46.           link eagle35
  47.         else
  48.           if @k==chr(104)||@k==chr(72)
  49.             set num 1
  50.             goto help
  51.           else
  52.             if @k==chr(112)||@k==chr(80)
  53.               xbkg2
  54.               link eagle menu1
  55.             else
  56.               if @k==chr(101)||@k==chr(69)
  57.                 pload ebkgx2 1
  58.                 putup 0 35 p1
  59.                 pfree 1
  60.                 pload edexit 1
  61.                 putup 190 200 p1
  62.                 pfree 1
  63.                 mn31b:
  64.                 waitkey
  65.                 getkey k
  66.                 if @k==chr(13)
  67.                   exit
  68.                 else
  69.                   if @k==chr(27)
  70.                     pload ebkgx2 1
  71.                     putup 0 35 p1
  72.                     pfree 1
  73.                     pload camtit 1
  74.                     putup 88 53 p1
  75.                     pfree 1
  76.                     goto mn31
  77.                   else
  78.                     goto mn31b
  79.                   endif
  80.                 endif
  81.               else
  82.                 goto mn31
  83.               endif
  84.             endif
  85.           endif
  86.         endif
  87.       endif
  88.     endif
  89.   endif
  90. endif
  91. exit
  92.  
  93. help:
  94. pload ebkgx2 1
  95. putup 0 35 p1
  96. pfree 1
  97. pload apatch 1
  98. putup 0 0 p1
  99. pfree 1
  100. pload edhelp 1
  101. putup 30 74 p1
  102. pfree 1
  103. hlp1:
  104. color 0
  105. rect 60 355 580 140
  106. fload ibm8 1
  107. fgaps 1 4 2
  108. set buf readfile(camphlp$@num$.doc)
  109. window 65 345 575 100
  110. color 1
  111. text @@buf
  112. . farfree(@buf)
  113. window
  114. set center on
  115. text 0 150 "Page "$@num$" of 2"
  116. text 0 140 "Press <PGUP> for next or <PGDN> for prior."
  117. set center off
  118. ffree 1
  119. hlp2:
  120. waitkey
  121. getkey k
  122. if @k==chr(13)
  123.   pload ebkgx2 1
  124.   putup 0 35 p1
  125.   pfree 1
  126.   pload camtit 1
  127.   putup 88 53 p1
  128.   pfree 1
  129.   pload ebnav 1
  130.   putup 0 0 p1
  131.   pfree 1
  132.   goto mn31
  133. else
  134.   if @k==chr(73)$chr(1)||@k==chr(72)$chr(1)
  135.     if @num==2
  136.       set num 1
  137.       goto hlp1
  138.     else
  139.       set num @num+1
  140.       goto hlp1
  141.     endif
  142.   else
  143.     if @k==chr(81)$chr(1)||@k==chr(80)$chr(1)
  144.       if @num==1
  145.         set num 2
  146.         goto hlp1
  147.       else
  148.         set num @num-1
  149.         goto hlp1
  150.       endif
  151.     else
  152.       goto hlp2
  153.     endif
  154.   endif
  155. endif
  156.  
  157. xbkg2:
  158. pload ebkgx2 1
  159. putup 0 35 p1
  160. pfree 1
  161. pload eclhx 1
  162. putup 0 412 p1
  163. pfree 1
  164. return
  165.